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1- KAPITEL 


1 - 1 Die Funk tio nsweise des Pasca1 64 Compilers 


tl ^yyvpjdt^ , 9 v A 

-1- Laden Sie den Compiler mit Load "Pascal SA CompTl er " , B' 

- 2- Zum Schreiben des Pascal-Programmes stehen Ihnen nun die 
Zeilennummern von 1 bis 9999 zur Verfuegung. Alle anderen 
Zeilen werden vom Compiler belegt und duer-fen deshalb nicht 
benutzt werden- Das Programm kann nun genauso geschrieben 
werden, wie Sie dies von BASIC bereits gewohnt sind. 

Achtung: In Pascal kann es Vorkommen, dass am Anfang einer 
Zeile eine Zahl stehen muss (CASE-Befehl). Der BASIC-Editor 
sieht diese Zahl als Ergaenzung der Zeilennummer und 
generiert eine -falsche Zeile. Um dieses zu verhindern, muss 
ein geshiftetes Leerzeichen die Zahl von der Zeilennummer 
trennen. Dieses muss auch vor jeder Korrektur der 
entsprechenden Zeile geschehen. Die BASIC-Be-f ehl e REM und 
DATA beeinflussen den Editor. Sie duerfen deshalb in keiner 
Form im Programm erscheinen, auch nicht als Teil eines 
Variablennamens. 

-3- Nach Fertigstellung des Programmes wird der Compiler mit 
RUN gestartet. Er fragt nun nach dem Programmnamen, dem 
verwendeten Massenspeieher (C=Cassette, D=Diskette> und nach 
der VerSchachtelungstiefe des Programmes 

(SchleifenmaximalVerschachtelung). Es kann auch ein Wert 
groesser dem tatsaechlichen Wert angegeben werden. 

-4- Der Compiler schreibt nun das Maschinenprogramm auf den 
angegebenen Massenspeieher und zeigt in der ersten 
Bildschirmzeile die bearbeitete Zeile an. 

-5- Eine nicht uebersetzbare Zeile meldet der Compiler 
meistens mit 7C0MPILE ERROR IN XXXX ;sollte eine andere 
Meldung ausgegeben werden, koennen Sie die fehlerhafte Zeile 
mit G0T0390Ö0 ermitteln. Das Programm kann nun mit LIST—9999 
gelistet und korrigiert werden. Danach ist bei Schritt 3 
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f ortzufahren. 


-6- Nachdem das -fehlerlose Programm uebersetzt wurde, meldet 
der Compiler das Programmende, welches notiert werden muss. 
Das Pascal —Programm sollte nun samt Compiler mit 
SAVE"Name" , loder8 abgespei chert werden, -falls man es zur 
Verbesserung noch einmal benoetigt. 

-7- Nun den Pascal-Loader laden und mit GOTO100 starten. Der 
Loader -fragt nach dem Pragrammende (Punkt , dem 

Programmnamen und laedt dann das erzeugte Maschinenprogramm. 

—8— Der Loader meldet sich mit READY und das -fertige Programm 
kann mit RUN gestartet, mit SAVE gespeichert und mit LOAD 
wieder geladen werden. Bei Benutzung der Gra-fik wird vom 
Compiler entsprechend viel Speicherp1 atz im Maschinenprogramm 
reserviert. Wollen Sie diesen Bereich nicht abspeichern, 
geben Sie vor dem SAVE den Be-fehl SYS 3707 ein. Um ein derart 
gerafftes Programm zu entraffen und zu starten, benutzen Sie 
SYS 3748. Ein Programm darf nur einfach gerafft oder entrafft 
werden und nur bei Benutzung der Grafik (Kapitel 7). 

— 9— Um die Bedienung des Compilers zu lernen, ist es 
empfehlenswert, erst die folgenden Kapitel zu lesen und 
eines der BeispielProgramme einzugeben. 


dann 


2. KAPITEL 


sat * on eines Pascal -Progr ammes 

-1- Variablendeklarationen 

Hier werden alle Variablen, Konstanten und Felder des 
Hauptprogrammes de-finiert und ihnen ein Variablentyp 
zugeordnet. 

-2- Unterprogrammdek1arat i onen 

In diesem Teil werden die vom Hauptprogramm oder von anderen 
Unterprogrammen benutzten Unterprogramme und Funktionen 
definiert. 

—3— Hauptproqramm 

Der Hauptproqrammblock beqinnt mit BEGIN und wird mit END. 
gesch1ossen. 

Diese Teile muessen in der obigen Reihenfolge stehen, wobei 
Unterprogrammbloecke wiederum aus Variablen— und F'rogrammtei1 
bestehen. Das Hauptprogramm ist der zuerst ausge-f uehr te 
Programmtei1. Nach dem END. des Hauptprogrammes wird die 
Kontrolle wieder an den BASIC-Interpreter uebergeben. 


2.2 Definition eines Blockes: 


Ein Block ist ein Programmtei1, der in BEGIN und END; 
einqesch1ossen ist und aneinandergereihte Befehle, 
Unterprogrammaufruefe und Strukturen (Schleifen, etc.) 
enthaelt. Innerhalb von Strukturen stehen dann widerum ein 
oder mehrere Bioecke. Ein Block, der nur aus einem Befehl 
oder nur einer Struktur besteht, braucht nicht in BEGIN und 
END; eingesch1ossen werden. 
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2.3 Allgeme ine Sy n tax s 


Ein Einzelbefehl wird durch ein Semikolon und ein darauf 
folgendes Leerzeichen abgeschlossen- Nach einem Befehlswort 
muss immer ein Leerzeichen folgen. 

Bei spiel: 

READLN (Variablei,Variable2); WRITELN (Vari abl el , Var i abl e2>; 

Leerzeichen sollten immer so gesetzt werden, wie es bei den 
jeweiligen Befehlsbeispielen demonstriert ist. Listenelemente 
bei Variablennamen, Parametern oder Ausdruecken werden durch 
Kommata getrennt und nicht durch Leerzeichen (z.B. die 
Auflistung der Variab1ennamen bei der Variablendeklaration). 


2.4 Kommentar e 

Um einen Kommentar in ein Pascal Programm einzufuegen, wird 
dieser folgendermassen gekennzeichnet: 

(* Kommentar *) 

Der Compiler beachtet den Kommentar nicht. 

Naeheres zu oben Gesagtem wird in den jeweiligen Kapiteln 
erklaert. 
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3. Kapitel 


entypen und Ausdruecke 


In Pascal 64 sind drei Variab1entypen moeglich: 

Ganze Zahlen werden in Pascal mit INTEGER bezeichnet und 
duer-fen einen Wert zwischen —32768 und 32767 einnehmen. 
Nachkommastellen werden von der entsprechenden Variablen 
nicht aufgenommen. INTEGER—Variablen belegen nur wenig 
Speicher (2 Bytes) und werden schnell verarbeitet, 
Variablenfelder sollten deshalb moeglichst vom Typ INTEGER 
sei n« 

Reelle Zahlen werden mit REAL bezeichnet und haben dieselben 
Wertebereiche und Stel1enanzahl wie 
BASIC—Gl eit komma—Variab1en. Eine Gleitkommazahl kann maximal 
+_ 1 - 70141183E+38 erreichen. Die Rechengenauigkeit ist auf 9 
Stellen beschraenkt. Jede Gleitkommazahl belegt fuenf Bytes. 
Im Gegensatz zu BASIC ist es in Pascal nicht erlaubt als 
erstes Zeichen einer Zahl den Dezimalpunkt zu benutzen, 
stattdessen muss in solchen Faellen eine Null vor den 
Dezimalpunkt gestellt werden: 

.00315 wird zu 0.00315 

Alphanumerische Zeichen werden als CHAR bezeichnet und 
duerfen alle auf dem C—64 darstel1 baren Zeichen enthalten, 
einschliesslich der Kontrol1 funktionen und der 
Cursorsteuerung. Alphanumerische Zeichen werden in 
Anfuehrunszeichen eingeschlossen. Der Typ CHAR kann keine 
Zeichenketten aufnehmen, dies muss ueber Variablenfelder vom 
Typ CHAR geschehen. 

Die Umwandlung von INTEGER in REAL und umgekehrt wird 
automatisch vollzogen, falls dies bei einer Berechnung noetig 
sein sollte und moeglich ist. Bei der Umwandlung von REAL in 
INTEGER fallen natuerlich die Nachkommastellen weg, dies ist 
z.B. bei den Operationen DIV und MOD der Fall und bei der 
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Uebernahme von 

INTEGER-Variable. 


Gl eitkommaerqebnissen 


ei ne 


i n 


3 - 2 Rechenverknuepf ungen 

Folqende Rechenverknuepfunqen sind in Pascal moeglich: 

+, *, / ;Diese Operationen arbeiten wie in BASIC und 

verknuep-fen REAL oder INTEGER. 

DIV ; Diese Operation arbeitet wie eine Division, liefert aber 
einen Wert vom Typ INTEGER und wird deshalh schneller 
ausgefuehrt. 

MOD ; Di ese Verknuepfunq arbeitet wie DIV. Es wird aber der 
mathematisehe Rest der Division als Ergebnis geliefert. 

AND, OR ;Diese Operationen arbeiten widerum wie in BASIC, 
liefern einen Wert vom Typ INTEGER und koennen als logische 
oder binaere Operationen benutzt werden. 

Die Vergleichsoperationen >, <, =, >=, <=, <> arbeiten auch 
wie in BASIC und sind -fuer alle drei Datentypen zulaessiq. 
Das Ergebnis dieser Operationen ist entweder -1 = wahr oder 0 
= unwahr. Zwei derartige Ergebnisse koennen mit AND oder OR 
verknuep-ft werden und liefern wieder ein Ergebnis vom Typ 
wahr oder unwahr. Von dieser Abfrage machen Schleifen 
(REPEAT, WHILE) und IF Gebrauch. Ein solches Eroebniss 1aesst 
sich aber auch einer Variablen zuordnen und erst spaeter mit 
IF testen. Die Funktion NOT(X) kehrt ein solches Ergebnis in 
sein Gegenteil um. 

Ausserdem gibt es in Pascal folgende vordefinie^te 
Funktionen: 

SIN(X), COS<X>, TAN(X), EXP(X), ABS(X), PEEK<X), NOT<X) 
;entsprechen den gleichnamigen BASIC-Funktionen. Das Argument 
kann vom Typ REAL oder INTEGER sein. 

TRUNC(X) ;liefert den ganzzahligen Anteil einer 

Fliesskommazahl und entspricht in BASIC dem INT. 

SQR(X) ;quadriert eine Zahl. 

SQRT<X) ;ermittelt die Quadratwurzel einer Zahl und 
entspricht der BASIC-Funktion SQR. 

LN(X) ;entspricht der BASIC-Funktion LOG. 


6 


ARCTAN(X) ;Umkehrung von TAN, entspricht in BASIC dem ATN. 

GRD(X) ;wandelt ein Zeichen in den entsprechenden Zahlencode. 
Entspricht in BASIC der ASC-Funktion. 

CHR(X) ;wandelt eine Zahl in ein Zeichen und ist somit die 
Umkehrung von ORD ;BASIC-Funktion CHR$. 


Operanden von Funktionen muessen in Klammern eingeschlossen 
werden, dies gilt auch -fuer die NOT-Funkt i on. 

Sicherlich vermissen Sie einige mathematisehe Funktionen, 
dies ist aber kein prinzipielles Problem. Sie lassen sich mit 
Hilfe einer Formelsammlunq leicht erstellen: 


X hoch Y 
COT(X) 
ARCSIN(X) 
COSH(X) 
LOGIC(X) 


EXP < Y*LN(X)) 

1/TAN(X) 

ARCTAN<X/SQRT(1—X*X)) 
(EXP(X)+EXP(—X))/2 
LN(X)/LN(10) 


In Pascal ist es moeqlich beliebige weitere Funktionen zu 
definieren. Darauf wird in Kapitel 6 eingegangen. 


Alle drei Datentypen koennen als Variable, eindimensionales 
Variablenfeld, Konstante oder direkte Zahl in mathematisehen 
Ausdrueck.en erscheinen. 

Alle in einem Programm oder Unterprogramm benutzten Variablen 
muessen vor dem Programmbeginn bereits deklariert sein, 
(siehe Kapitel 2) 


1 endek larat i on 

Der Befehl VAR teilt dem Compiler mit, dass nun 
Variablennamen folgen. Diese werden durch Kommata voneinander 
getrennt, nach einem Doppelpunkt steht der Typ dieser 
Variablen, und ein Semikolon gefolgt von einem Leerzeichen 
trennt sie von den naechsten Variablen. 

Beispi el : 

VAR A,B,TEST:REAL; X,ZAEHLER:INTEGER; A:REAL; M,N:CHAR; 
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def i ni erten 


Eine deklarierte Variable hat noch keinen 
Ausgangszustand, auch nicht den Wert Null. Ihr muss erst vom 
Programm ein Wert zugeordnet werden, bevor auf ihren Inhalt 
zugegriffen wird, sonst enthaelt sie einen zufaelligen Wert. 
Die Laenge der Variablennamen und ihre Anzahl ist beliebig. 
Ein Variablenname darf im ganzen Programm nur einmal vergeben 
werden und darf keine Pascal-Verknuepfungsbefehle enthalten. 
Der Name COLOR enthaelt z.B. OR und ist damit nicht erlaubt. 
Zum Definieren von Variablenfeldern wird der Variablentyp 
einfach durch ein ARRAY<0..Zahl) GF Variablentyp; ersetzt: 

VAR A,B,TEST:ARRAY <0.. 1000) OF REAL; 

Es werden die Felder A, B und TEST definiert, die alle von 0 
bis 1000 laufen. Dies entspricht dem BASIC-Befehl DIM. 

Normalerweise werden in Pascal eckige Klammern benutzt, um 
den Index eines Feldes einzuklammern. Aus technischen 
Gruenden stehen in dieser Anleitung nur runde Klammern. In 
Pascal 64 ist dagegen beides erlaubt. 


3.4 Konstantendeklaration 


Der Befehl CONST wird vor die Auflistung der Konstanten 
gestellt und dann den Konstanten mit Name=Wert; Werte 
zugeordnet. Der Wert einer Konstanten bleibt ueber das ganze 
Programm gleich. 

CONST P I =3 .1 4 1 59265 ; TRUE=- 1 ; F ALSE=0; KLAMMER- " ( " ; 

Die Datentypen werden vom Compiler automatisch hinzuqefuegt. 
Fuer Konstantennamen gilt dasselbe wie fuer Variab1ennamen. 


3^5 Arithmetische A usdruecke 

Der Aufbau eines Ausdrucks (Formel) geschieht in Pascal wie 
in BASIC, d.h. Aneinanderreihung von Verknuepfungen, 
algebraische Rechenhierarchie, Benutzung aller Variablen- und 
Datentypen und uneingeschraenkter Einsatz von Kl ammerebenen 
ist in Pascal voll moeglich. Somit ist ein vol1staendiqes 
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al qebrai sches Operat i onssystem implementiert. Es sind dabei 
■folgende Ausnahmen zu beachten: 

Innerhalb eines Ausdrucks bzw. einer Formel duer-fen keine 
Leerzeichen benutzt werden. 

Der Index von Feldvariablen ist in eckige Klammern zu setzen 
und kann selbst wieder ein Ausdruck sein. 

Seibstdefinierte Funktionen koennen wie eingebaute Funktionen 
benutzt werden, Funktionsargumente koennen selber wieder 
Ausdruecke sein. 

Die Negation einer Variablen durch das Voranstellen eines 
Vorzeichens ist nicht erlaubt: 

B:= -B; muss heissen B:- B*-l; 

Die Rechenhierarchie in Pascal ist geringfuegig ander als in 
BASIC: 

- Die Klammern besitzen den hoechsten Vorrang. Dies gilt 
natuerlich auch fuer Funktionsparameter, die in Klammern 
eingeschlossen werden muessen. 

- Dann werden die Operationen *, /, DIV, MOD und AND 
ausge-f uehrt. 

- Darunter liegen + , - und OR. 

- Zuletzt werden die Veraleichsoperationen <<, >, =, <>, <=, 

>=) ausge-f uehrt. 

Die logischen Operationen AND und OR liegen in dieser 
Hierarchie etwas unguenstig. Diese ist aber in Pascal 
Standard und wurde deshalb auch in Pascal 64 uebernommen. Es 
empfiehlt sich deshalb bei entsprechenden Ausdruecken immer 
Klammern zu setzen, um Fehler zu vermeiden. 


3.6 Die Zuweisung in Pasca1 


Um einer Variablen einen Wert zuzuweisen benutzt man folgende 
Anweisung: 
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Variable: = Ausdruck; 


oder bei Variablenfeldern: 

Variable(Ausduck1):= Ausdruck2; 

Der Variablen auf der linken Seite wird das Ergebnis des 
Ausdrucks auf der rechten Seite zugeordnet. Diese Zuweisung 
arbeitet analog zu der in BASIC. Es wird in Pascal nur nach 
dem Gleichheitszeichen ein Doppelpunkt gesetzt, um die 
Zuweisung von einem Vergleich zu unterscheiden. 

Bei spiel: 

FELD(3+4):= SIN<8>; 

Das siebte Feldelement enthaelt nun den Sinus von 8, 

vorausgesetzt das Feld ist vom Typ REAL. 
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4. KAPITEL 


4.1 Ein- u nd ftu sqab e 


Um eine Zahl oder ein Zeichen von der Tastatur einzulesen, 
benutzt man in Pascal den READ-Befehl: 


READ (Variablei,Variable2,.-.,VariableN); 

Dieser Be-fehl bewirkt, dass die durch Kommata getrennten 
Variablen eingelesen werden. Bei der Eingabe sind die 
entsprechenden Zahlenwerte durch Leerzeichen oder die 
Return—Taste zu trennen. Natuerlich koennen auch 
Feldvariablen eingelesen werden. Sollte die Variable vom Typ 
CHAR sein, wird nur ein Zeichen eingelesen. 

Anstelle des READ-Be-f ehl s kann man auch den READLN-Bef ehl 
benutzen, welcher nach Beendigung einer Eingabe ein Return 
erwartet: 


READLN ( X,Y); 

Wuerde jetzt -folgende Eingabe qemacht werden: 

12 32.5 4 'RETURN' 

dann wuerden die ersten beiden Zahlen in die Variablen X und 
Y geschrieben werden, die Zahl 4 wuerde aber ignoriert 
werden. Der READ Befehl wuerde dagegen die Zahl 4 -fuer die 
naechste Eingabe stehenlassen. 

Um Ergebnisse auszugeben wird in Pascal der WRITE-Befehl 
benutzt: 

WRITE (Variable,Formel,"Text; 

Es ist mit dem WRITE-Befehl moeglich, das Ergebnis jeder 
beliebigen Formel auszugeben. Ausserdem koennen Texte 
ausgegeben werden, die in Anfuehrunszeichen zu setzen sind. 
Texte duerfen alle Zeichen enthalten, die zwischen 
Anführungszeichen darstellbar sind (z.B. die Cursorzei chen) . 
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Der WRITELN Be-fehl entspricht dem WRITE Befehl, setzt aber 
nach der Ausgabe noch einen 'RETURN'-Code.Um nur ein 'RETURN' 
auszugeben, schreibt man den WRITELN-Befehl ohne Parameter: 

WRITELN; 

Entsprechende BASIC-Befehle sind: 


READ : INPUT 
WRITELN : PRINT 
WRITE : PRINT ... ; 

Bei der Eingabe von Zahlen muessen diese durch Leerzeichen 
getrennt werden und nicht durch Kommata wie in BASIC. 


Mit den bisher erlaeuterten Befehlen ist es bereits moeglich 
ein einfaches Pascal-Programm zu schreiben: 


10 VAR EINGABE,ERGEBNIS:REAL; 

20 <* KEINE UNTERPROGRAMME NOETIG *) 

30 BEGIN <* ANFANG DES HAUPTPROGRAMMES *) 

40 WRITELN ("ICH ERWARTE JETZT EINE ZAHL."); 

50 READLN (EINGABE); 

60 ERGEBNIS:= SIN(EINGABE); 

70 WRITELN ("DER SINUS DER EINGABE IST:",ERGEBNIS); 
80 END. (* ENDE DES HAUPTPROGRAMMES *> 


Dieses Programm kann nun, wie in Kapitel 1 beschrieben, 
uebersetzt und gestartet werden. 


4,2 Weiterfuehr e nde Ei n - Ausgabemoeglichkeiten 

Beim Pascal 64 gibt es die Moeglichkeit die Befehle WRITE, 
WRITELN, READ und READLN auf andere Geraete als Bildschirm 
und Tastatur zu beziehen. Dies geschieht wie in BASIC ueber 
die Files. 

Um ein File eroeffnen zu koennen, muss man es zuerst im 
Variablenteil als Variable deklarieren: 
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VAR Name,Geraeteadr,Sekundaeradr,"Text,Name,etc.":FILE; 

Diese Parameter entsprechen dem BASIC-Betehl OPEN, allerdings 
wird die Filenummer durch den Filenamen ersetzt- Das 
deklarierte File wird noch nicht eroettnet. 

Das Eroef-fnen eines Files geschieht mit dem Betehl RESET: 

RESET (Filename); 

Der RESET-Be-fehl kann auch durch ein REWRITE ersetzt werden. 
Eine Unterscheidung zwischen Lese- und Schreibtile ist an 
dieser Stelle jedoch nicht noetig, dies geschah bereits bei 
der Deklaration des Files durch die Sekundaeradresse 
(Datasette) oder den angehaengten Text (Floppy). 

Das Schl i essen eines Files geschieht ueber den CLOSE-Betehl: 

CLOSE (Filename); 

Danach kann das File wieder eroe-f-fnet werden. Ein File sollte 
immer vor Beendigung des Programmes geschlossen werden, da 
sonst Daten verloren gehen. 

Der Zugritt au-f ein File geschieht ueber die bereits 
er1aeuterten Ein- Ausgabebetehle (WRITE, WRITELN, READ, 
READLN), es wird nur als erstes Element der Variab1en1iste 
der Filename genannt. Um Daten mit READLN zu lesen, muessen 
diese ein entsprechendes Format haben, d.h. sie muessen mit 
WRITELN geschrieben worden sein. 

Bei spiel pragramm: 

10 VAR ZEICHEN:CHAR; FLOPPY,8,8,"TESTFILE,S,R":FILE; 

20 DRUCKER,4,0," ":FILE; STATUS:INTEGER; 

30 BEGIN 

40 RESET (FLOPPY); RESET (DRUCKER); 

50 REPEAT 

60 READ (FLOPPY,ZEICHEN); STATUS:= PEEK(144); WRITE 

(DRUCKER,ZEICHEN); 

65 WRITE (ZEICHEN); 
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(FLOPPY); 


CLOSE 


70 UNTIL STATUS=64; (* SCHLEIFENENDE *) 

80 WRITELN; WRITELN ("FERTIG"); CLOSE 
(DRUCKER); 

90 END. 


Zum Verstaendnis der Schl ei -fe REPEAT ... UNTIL sehen Sie 
bitte in Kapitel 5 nach. Das Programm liest ein File, mit dem 
au-f der Floppy gespeicherten Namen TESTFILE, von der Floppy 
und gibt es ueber Drucker und Bildschirm wieder aus. Durch 
Verwendung einer Variablen vom Typ CHAR, geschieht dies in 
einzelnen Bytes. 

4.3 Der Filestatus 


Die Funktion PEEKC144) entspricht dem Filestatus der letzten 
Ein- Ausgabeoperation und damit der BASIC-Variablen ST. Hat 
die Speicherstelle 144 den Inhalt 64, so ist das Fileende 
erreicht. 
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3i_KAPITEL 


5.1 Kontrolls t r u k turen 

Um den Ablauf eines Programmes zu kontrollieren kann man 
Schlei-fen und bedingte Verzweigungen einsetzen. Einen 
Schleifentyp kennen Sie bereits von BASIC her: die FÜR 
NEXT Schl ei -Fe. Ausserdem kennen Sie mit dem IF .. THEN Befehl 
eine bedingte Verzweigung. Diese Verzweigung ist in BASIC 
aber zeilenbezogen, d.h. der Teil nach dem THEN ist durch das 
Zeilenende begrenzt. In Pascal wirkt ein Zeilenende dagegen 
nie als Begrenzung, sondern hoechstens als Leerzeichen. Um 
einen bedingt ausge-fuehrten Block zu begrenzen, wird dieser 
in BEGIN und END; eingeschlossen, wie bereits in Kapitel 2 
er 1 a ^<-itert. Die Aus-fuehrung eines Blockes kann nur bei diesen 
beiden Marken begannen bzw. beendet werden. Bei dem Entwurf 
eines Programmes ist also schon die Blockstruktur zu 
beachten. Die Verwendung von Flussdiagrammen ist dazu wenig 
geeignet. Ein alternatives Verfahren, um ein Pascal-Programm 
grafisch darzustellen, wird in Kapitel 9 erlaeutert. 

In BASIC gibt es noch die unbedingte Verzweigung, die durch 
den GOTO—Bef eh1 realisiert ist. Aufgrund der leistungs- 
faehigen Strukturierbefehle des Pascal wurde dieser 
unstrukturierte, dem Pascal-Konzept widersprechende Befehl in 
Pascal 64 weggelassen. Einige Pascal-Versionen besitzen ihn 
zwar, aber auch dort ist er unnoetig und sollte moeglichst 
nicht benutzt werden. 


5.2 Wiederholunqsanweisu nqen_( Schlei fen) 

5.2.1 Die REPEAT—Anweisung 
Format: 

REPEAT Befehlsblock UNTIL Bedingung; 

REPEAT und UNTIL ersetzen dabei die Blockbegrenzer BEGIN und 
END. 

Wirkung: 
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Der Block wird ausge-f uehrt, dann die Bedingung (beliebige 
Verglei chsf ormel ) ueberprue-ft und das ganze nochmal 
ausgefuehrt, wenn die Bedingung nicht erfuellt ist. Dies 
geschieht solange bis die Bedingung erfuellt ist. Danach wird 
die Programmbearbeitung nach dem UNTIL fortgesetzt. 

Bei spiel Programm: 

10 VAR ZAEHLER:INTEGER; 

20 BEGIN ZAEHLER:= 1; 

30 REPEAT 

40 WRITELN (ZAEHLER); 

50 ZAEHLER:= ZAEHLER+1; 

60 UNTIL ZAEHLERM0; 

70 END. 

Dieses Programm gibt die Zahlen von 1 bis 10 aus, was leicht 
nachvollziehbar ist. Die Zahl 11 wird nicht mehr ausgegeben, 
da vorher bereits die Bedingung ueberprueft und als erfuellt 
erkannt wurde. Zu beachten ist, dass die Variable ZAEHLER 
erst in einen definierten Ausgangszustand gebracht wird. 


5.2.2 Die WHILE-Anweisung: 


Format: 

WHILE Bedingung DO Block; 

Die Bedingung wird ueberprueft und der Befehlsblock 
ausgefuehrt, wenn diese erfuellt ist. Nach dem Ende des 
Blocks wird wieder bei WHILE begonnen. Erst wenn die 
Bedingung nicht erfuellt ist, wird mit dem Teil nach dem 
Block fortgefahren. Im Gegensatz zum UNTIL—Befehl ist es hi er 
moeglich, dass der Block nicht ausgefuehrt wird, wenn die 
Bedingung nicht erfuellt ist. 

Bei spiel: 


10 VAR ZAEHLER:INTEGER; 
20 BEGIN ZAEHLER:= 1; 
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30 WHILE ZAEHLEFK11 DG BEGIN 
40 WRITELN (ZAEHLER); 

50 ZAEHLER:= ZAEHLER+1; 

60 END; (* ENDE DER SCHLEIFE *> 
60 END. 


Dieses Programm gibt ebenfalls die Zahlen 1 bis 10 aus. Ist 
ZAEHLER = 11, dann ist die Bedingung nicht mehr erfuellt und 
der Block wird ueberSprüngen. 


5.2.3 Die FOR-Anweisung 

Format: 

FÜR Variable:= Anfangswert TO Endwert Dü Block; 

Die Variable wird von Anfang bis Endwert in Einerschritten 
aufwaerts durchqezaehlt und jedesmal der Block ausge'uehrt. 
Ist der Anfangswert bei Start der Schleife groesser dem 
Endwert, wird der Block ueberhaupt nicht ausgefuehrt. Wie bei 
WHILE wird dann der Block ueberSprüngen. Nach Erreichen des 
Endwertes wird nach dem Block mit der Programmausfuehrung 
fartgefahren. Anfangs- und Endwert koennen beliebige 
Ausdruecke sein. Die Variable muss vom Typ INTEGER sein. Der 
Endwert wird vor jedem Blackdurchlauf neu berechnet, sein 
Wert kann also innerhalb des Blockes veraendert werden. 

Man kann eine Schleife aber auch herunterzaehlen lassen: 

FÜR Variable:= Anfangswert D0WNT0 Endwert DO Block; 

Die Variable wird dabei in Einerschritten heruntergezaehlt 
und der Block uebersprungen, wenn der Anfangswert kleiner dem 
Endwert ist. 

Bei spiel: 

10 VAR ZAEHLER:INTEGER; BEGIN 
20 FÜR ZAEHLER:= 1 T0 10 DO 
30 BEGIN WRITELN (ZAEHLER); END; 

40 END. 
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Widerum haben wir ein Programm, dass die Zahlen von l bis 10 
ausdruckt. Durch das Verwenden einer FOR-Schleife wurde aber 
die Startwertzuweisung, das Herau-fzaehlen der Variablen und 
die Ueberprue-f unq der Bedingung automati si ert. Um einen 
anderen Zaehlwert als +1 oder -1 zu verwenden, muss auf die 
WHILE-Schlei-f e zurueckqeqriffen werden. Bei der FOR-Schl ei -fe 
haetten wir die Blockbeqrenzer BEGIN und END auch weqlassen 
koennen, da der Block nur aus einem Befehl besteht. 

Wie bereits erwaehnt koennen innerhalb eines Blockes beliebig 
weitere Strukturen verschachtelt werden. Die 
Verschachtelungstiefe ist dabei beliebig, muss aber dem 
Compiler angegeben werden, (siehe Kapitel 1) 

Wie Sie gesehen haben gibt es in Pascal mehrere 
Moeglichkeiten ein Programm zu formulieren, welche die 
jeweils guenstigste ist haengt von dem jeweiligen 
Loesunqsansatz ab. Sie sollten sich jedoch mit allen drei 
Schleifentypen vertraut machen. Mit REPEAT oder mit WHILE 
lassen sich nicht nur Zaehlschleifen darstellen. Folgendes 
Programm wartet z.B. auf das Druecken einer Taste: 

10 BEGIN 
20 REPEAT 

30 UNTIL PEEK (203)< >64; 

40 END. 

Die Speicherstelle 203 enthaelt dabei einen Code fuer die 
momentan gedrueckte Taste. 64 steht fuer keine qedrueckte 
Taste. Ueberhaupt sind viele Speicheradressen zwischen 0 und 
1023 in Pascal dieselben wie in BASIC. Natuerlich sind auch 
alle anderen Systemadressen erhalten geblieben (z.B. die 
Sprite—Register oder die Adresse des Bi 1dschirmspeichers). 


9. 3Entscheidunqsanweisunq en 

9.3.1 Die IF-Anweisung 

Formats 
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IF Bedingung THEN Blockl ELSE Block2; 

oder auch nur: 

IF Bedingung THEN Blockl 

Wenn die Bedingung er-fuellt ist, wird Blockl ausgefuehrt, 
andernfalls wird Block2 ausqe-f uehrt, soweit er vorhanden ist. 

Bei spiel: 

10 VAR EINGABE:REAL; 

20 BEGIN 

30 READLN (EINGABE); 

40 IF EINGABEN5 THEN BEGIN WRITELN ("DIE EINGABE IST KLEINER 
ALS 5"); END; 

50 ELSE BEGIN WRITELN ("DIE EINGABE IST GR0ESSER ODER GLEICH 
5"); END; 

60 END. 

Auch in diesem Fall haetten wir BEGIN und END von Blockl und 
Biock2 widerum weglassen koennen. 

Dieses Programm macht nur eine grobe Aussage Lieber die 
Variable EINGABE. Eine genauere Aussage ueber eine Variable 
oder einen Atisdruck ermoeglicht die -folgende Anweisung: 


5.3.2 Die CASE--Anwei sung 

Format: 

CASE Ausdruck 0F 

Zahl,Zahl,Zahl,...,Zahl: Blockl; 

Zahl,...,Zahl: Block2 
Zahl,...,Zahl: BlockN; 

END; 

Die Zahlen muessen vom Typ INTEGER sein, koennen aber auch 
durch Zeichen vom Typ CHAR (in Anfuehrungszeichen) ersetzt 
werden, wenn der Ausdruck ein entsprechendes Ergebnis 
liefert. Gleitkommazahlen sind nicht erlaubt. 
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Wirkungsweise: 

Der Ausdruck wird ausgerechnet und der Block ausgefuehrt vor 
dem eine Zahl bzw. ein Zeichen steht, das mit dem Ergebnis 
identisch ist. Das END; beendet die Auflistung der Zahlen und 
Bioecke, es gehoert zum CASE-Statement und nicht zu einem 
Block. Ist keine der Zahlen gleich dem Ausdruck nach GASE, 
dann wird kein Block ausgefuehrt, sondern gleich nach dem 
END; des CASE—Statements fortgefahren. 

Bei spiel: 

10 VAR EINGABE:INTEGER; 

20 BEGIN 

30 READLN (EINGABE); 

40 CASE EINGABE ÜF 

50 1,2,3: BEGIN WRITELN ("1 BIS 3">; END; 

60 4,5,6: WRITELN ("4 BIS 6"); 

70 7,8,9,10,11: BEGIN WRITELN (“7 BIS 11"); END; 

80 END; <* VON CASE *> 

90 END. <* VOM PROGRAMM *> 

Achten Sie bei der Programmeingabe darauf, dass Zeilennummer 
und Zahl durch ein geshiftetes Leerzeichen getrennt werden 
muessen (siehe Kapitel 1). 

Dieses Programm gibt eine genauere Beschreibung der Variablen 
EINGABE, als das vorherige Programm dies tat. 

Um die praktische Anwendung der Kontrollstrukturen zu 
verdeutlichen, folgt nun ein Programm zum Ausdruck der 
Primzahlen unter 2000. Das Proqramm arbeitet dabei nach dem 
Verfahren, das aus einer Tabelle alle Vielfachen einer 
Primzahl gestrichen werden, da Sie keine Primzahlen mehr 
sind. Wichtig ist nur, dass Sie die Verschachtelung der 
Bioecke erkennen. 

Alle FND—Statements wurden mit einer Bemerkung versehen, die 
angibt auf welche Struktur sie sich beziehen. Alle BEGIN und 
END, die weqgelassen werden koennen, sind als Bemerkung 
darqestelit. Die Konstanten TRUE und FALSE dienen der 
besseren Lesbarkeit des Programms. 

10 C0NST N=1000; TRUE=-1; FALSE=0; 

20 VAR Z:ARRAY(0-.1000) 0F INTEGER; 


30 K, I:INTEGER; 

40 BEGIN 

50 FDR I:= 1 TO N DO 
60 C* BEGIN *> 

70 Z (I) : = TRUE; 

BO (* END VON FOR *) 

90 WRITELN (2); 

100 FOR I:= 1 TO N DO 
110 (* BEGIN *) 

120 IF Z(I) THEN 

130 BEGIN 

140 WRITELN (2*1+1); 

150 K:= 1; 

160 WHILE I+K*(2*1+1)<=N DO 

170 BEGIN 

180 Z(I+K*(2*1+1)):= FALSE; 

190 K: = K+l; 

200 END; (* VON WHILE *) 

210 END; (* VON THEN *) 

220 (* END VON FOR *) 

230 END. (* DES PROGRAMMES *) 

Tippen Sie nun dieses Programm ein, und uebersetzen Sie es 
wie in Kapitel 1 beschrieben. Es laeuft wesentlich schneller, 
als ein entsprechendes BASIC-Programm. 

Fuegen Sie nun -folgende Zeile ein: 

45 INTEGER; 

und aktivieren Sie den Compiler erneut. Die Geschwindigkeit 
des Programmes wurde stark gesteigert. Naeheres zu diesem 
Befehl erfahren Sie in Kapitel 7, vorerst sollten Sie ihn 
nicht benutzen. 
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b. KAP ITEL 


6-1 Unterprogramme un d Funktionen 


Die Unterproqrammdefinitionen stehen in Pascal noch vor dem 
Hauptprogrammblock und nach den Variablendeklarationen. Sie 
bestehen aus einem Parametertei1, den Unter¬ 
programmvar i abl endekl arati onen und dem Unterprogramm^ock. 


6.1.1 Unterprogrammde-f inition 
Format: 

PROCEDURE Name (Parameterliste) ; 

Variablendeklarationen 
Block; 

Die Parameter1iste und die Variablendeklarationen koennen 
natuerlich auch -fehlen. Die Vari abl endekl arat i onen wurden 
bereits in Kapitel 2 erlaeutert. Die Unterprogrammvariablen 
gehoeren nur zum Unterprogramm oder zu den vom Unterprogramm 
selber benutzten Unterprogrammen. Die Variablen des 
Hauptprogrammes koennen dagegen von allen Unterprogrammen und 
natuerlich vom Hauptprogramm benutzt werden. Sie werden 
deshalb globale Variablen genannt. Jeder Programmblock sollte 
nur seine eigenen Variablen benutzen, um Programmierfehler zu 
vermeiden. Der Datenaustausch zwischen Unterprogramm und 
aufrufendem Programm sollte sich deshalb moeglichst au-f die 
Parameter beschraenken. 

Mit der Parameterliste werden Variablen deklariert, denen 
beim Aufruf der PROCEDURE Werte oder Variablen des 
aufrufenden Programmes zugeordnet werden muessen. Es gibt 
dabei zwei Arten von Parametern: 

Werteparameter 

Diese Parameter werden wie Variablen deklariert, jedoch ohne 
das Wort VAR voranzustellen. Beim Au-f ruf des Unterprogrammes 




wird dem Werteparameter vom aufrufenden Programm ein Wert 
uebergeben- 

Variablenparameter: 

Zur Unterscheidung von den Werteparametern wird das Wort VAR 
vor die Deklaration gestellt. Dem Variablenparameter wird 
beim PROCEDURE—Aufruf eine Variable uebergeben, mit der das 
Lnterprogramm dann unter dem Namen des Variablenparameters 
arbeiten kann. So ist es moeglich, dass das Unterprogramm 
Variablen des aufrufenden Programmes benutzt, ohne dabei an 
eine bestimmte Variable gebunden zu sein. Jeder Aufruf der 
PROCEDURE kann eine andere Variable uebergeben. 

Bei spiel: 

PROCEDURE TEST (VAR A.B:INTEGER; C:REAL; VAR X,Y:CHAR); 

Die Variablen A T B, X und Y sind Variablenparameter, die 
Variable C ist ein Werteparameter. Alle Parameter koennen vom 
Unterprogramm wie Variablen benutzt werden. 


6.1.2 Unterproqrammaufruf 

Format: 

PROCEDURE Name (Parameter 1,Parameter2,... ,ParameterN); 

Dem Unterprogramm Name werden die Parameter uebergeben und 
dann das Unterprogramm ausgefuehrt. Die Parameteruebergabe 
geschieht in der Reihenfolge der Deklaration, Variablen— 
Parametern duerfen natuerlich nur Variablen uebergeben werden 
und keine Ausdruecke. 

Der Aufruf unseres obigen Beispiels koennte also so lauten: 
TEST <1 ,K,COS<3*5+Q>,S,N)? 

Ein Unterprogramm kann natuerlich selber wieder 
Unterproqramme aufrufen, diese muessen aber bereits definiert 
sein. Ein PROCEDURE-Name darf nicht den Namen eines 


Pascal-Befeh1s haben 


Bei spiel: 

10 VAR X:REAL; 

20 PROCEDÜRE EINGABE (VAR ZAHL:REAL); 

30 (* PRÜCEDUREVARIABLEN UNNOETIG *) 

40 BEGIN 

50 WRITELN ("BITTE ZAHL EINGEBEN"); 

60 READLN (ZAHL); 

70 END; (* DER PROCEDÜRE *) 

80 BEGIN (* DES PROGRAMMES *) 

90 EINGABE (X); 

100 WRITELN ("SIE HABEN ",X,"EINGEGEBEN"); 

110 END. 

eines neuen 
Befehlssatz 

einer neuen 
moeglich. 


Das Unterprogramm wirkt wie die Definition 
Befehles. Es waere z.B. moeglich den grafischen 
des Pascal 64 zu erweitern (siehe Kapitel 8). 

In vielen Faellen ist auch die Definition 
Funktion wuenschenswert, auch dies ist in Pascal 


6.1.3 Definition von Funktionen 


Format: 

FUNCTION Name (Parameter1iste):Funktionstyp; 

Variablendeklarationen 
Block; 

Hier gelten die Vorschriften der PROCEDÜRE. Die 

Parameter1iste muss aber mindestens ein Element enthalten. 
Ausserdem wird eine Funktionsvariable definiert, mit dem 
Namen der Funktion und vom Typ der im Funktionstyp angegeben 
ist. Dieser kann alle drei Datentypen darstellen. 

Der Funktionsvariablen muss im Funktionsblack ein Wert 
zugewiesen werden, der dann das Ergebnis der Funktion 
repraesentiert. Ansonsten ist die Funktionsvariable eine 
normale Variable. 


Der Aufruf einer Funktion geschieht wie bei den 
vordefinierten Funktionen, die Parameteruebergabe geschieht 
wie bei PROCEDUREN„ 


Bei spiel: 


10 VAR EINGABE:INTEGER; 

20 FUNCTION FAKULTAET (N:INTEGER):REAL; 
30 VAR ZAEHLER:INTEGER; 

40 BEGIN 

50 FAKULTAET:= 1; 

60 FOR ZAEHLER:= 1 TO N DQ 
70 FAKULTAET:= FAKULTAET*ZAEHLER; 

80 END; <* DER FUNKTION *) 

90 BEGIN 

100 READLN (EINGABE); 

110 WRITELN (FAKULTAET(EINGABE)) ; 

120 END. 


6.2 Rekursio nen 

In Pascal ist es moeglich, dass ein Unterprogramm oder eine 
Funktion sich selber aufruft, dies nennt man eine Rekursion. 
Eine Rekursion hat natuerlich nur dann einen Sinn, wenn die 
Folge der rekursiven Aufruefe irgendwann abbricht und sich 
wieder aufloest. Im Gegensatz zu BASIC werden dabei die 
Variablen des aufrufenden Programmes nicht zerstoert. Nach 
der Rueckkehr von einem Aufruf sind die Variablen wieder in 
dem Zustand in dem sie vor dem Aufruf waren. Da dies fuer 
alle Variablen des Unterprogrammes gilt, also auch fuer 
Felder, koennen komplexe Datenstrukturen aus einfachen 
Programmen entstehen. Variablenparameter sind in diesem Fall 
nicht einzetzbar, im Gegensatz zu anderen Pascal-Versionen. 
Die rekursive Uebergabe von Ergebnissen kann nur ueber die 
Funktionsvariable oder ueber globale Variablen geschehen 
(Variablen des Hauptprogrammes) . 


Beispiel: 
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10 VAR EINGABE:INTEGER; 

20 FUNCTIGN FAKULTAET (N:INTEGER):REAL; 

30 BEGIN 

40 IF N>] THEN FAKULTAET:= FAKULTAET(N-l>*N 
50 ELSE FAKULTAET:= 1; 

60 END; 

70 BEGIN 

80 READLN (EINGABE); 

90 WRITELN (FAKULTAET(EINGABE)); 

100 END. 

Da der Parameter N mit wachsender Anzahl der Au-frue-fe jeweils 
um 1 kleiner wird (N-l), erreicht er den Wert 1. Daraufhin 
sind die rekursiven Aufruefe beendet. Die Rekursior 1oest 
sich wieder auf, wobei alle N der verschiedenen Ebenen 
miteinander multipliziert werden. Somit qibt es auch einen 
rekursiven Weg, die Fakultaet zu ermitteln. 
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7. KAPITEL 


7. 1 Die Gra-f i Kj-Be-f ehl e 

7.1.1 Einschalten der Grafik 

Das Umschalten vom Bildschirm au-f die Grafik geschieht mit 
dem GRAPHIC-Be-feh 1. 

Format: 

GRAPHIC Zahl; 

Wenn die Zahl gleich 1 ist wird au-f den Gra-f i k-Bi 1 dschi rm 
umqeschal tet, die Gra-fik dabei aber nicht geloescht. Die 
grafische Aufloesunq betraegt 320 x 200 Punkte zwei-farbig, 
die Hintergrundfarbe bleibt bestehen, die Punktfarbe ist 
gleich der Cursorfarbe. Eine mehr-farbige Gra-fik wird in 
Kapitel 8 realisiert. 

Ist die Zahl gleich 0 dann wird aut den normalen Schirm 
zurueckgeschaltet und dieser geloescht. 

Bei Anwendung des GRAPHIC-Betehls irgendwo im Programm wird 
der Bereich von 8192 bis 16384 tuer die Grafik reserviert, 
ausserdem wird der Bereich von 4100 bis 8191 tuer 
Maschinensprache frei. Diese beiden Bereiche koennen dann 
natuerlich auch anders genutzt werden. 

Sprites koennen nicht im Bereich von 4096 bis 8191 liegen, in 
diesem Bereich greift der Videoprozessor auf den Zeichen— 
qenerator zu. 


7.1.2 Loeschen der Grafik 

Format: 

SCREENCLEAR; 

Dieser Befehl loescht. den Graf i kbi 1 dschi r m. 

7.1.3 Setzen eines Punktes 
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Format 


PLOT Ausdruck 1,Ausdruck2; 

PLOT setzt einen Punkt au-f den Gra-f i kbi 1 dschi rm. Ausdruckl 
gibt dabei die X—Koordinate (0—319), Ausdruck2 die 
Y-Koordinate (0-199) an. 

7.1.4 Loeschen eines Punktes 

Format:lnl 

UNPLOT Ausdruckl,Ausdruck2; 

Loescht einen Punkt und arbeitet ansonsten wie der 
PLOT—Be-f eh 1 . 

Befehle zum Zeichnen von Linien lassen sich leicht als 
Unterprogramme definieren (Kapitel 8). 

Bei spiel: 

10 CONST PI=3.14159265; STEP=0.0196349541; 

20 VAR X:INTEGER; I:REAL; 

30 BEGIN GRAPHIC 1; SCREENCLEAR; 

40 I:= PI*—1; 

50 F0R X:= 0 TO 319 DO BEGIN 
60 PLOT X,100+90*SIN(I); 

70 I: = I+STEP; 

80 END; 

90 GRAPHIC 0; END. 

7.1.5 Der SPRITE-Befehl 


Format: 

SPRITE Zahl,"Bitmuster"; 

Unter der durch die Zahl gegebenen Adresse und den folgenden 
Adressen wird das Bitmuster abgespeichert. welches Vielfache 
von 8 Bit enthalten kann. Zur Definition eines Sprites werden 
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dabei 24 Bit eingesetzt und der SPRITE—Befehl 21 mal benutzt, 
mit jeweils einer um 3 hoeheren Adresse. Leerzeichen 
repraesentieren qelceschte Bit, alle anderen Zeichen setzen 
ein Bit. Der SPRITE-Befehl kann natuerlich auch fuer andere 
Zwecke dienen, z.B. zum Erstellen eines neuen Zeichensatzes. 

Bei spiel: 

SPRITE 960," XXXXXXXXXX "; 

SPRITE 963," XXXXXXXXXXXX 

Definiert die ersten beiden Zeilen des Sprites Nr. 15. 

Zur Verfuequng stehen die Sprites 11 (Adresse 704 =64*11), 13 
(832), 14 (896), 15 (960), 32 (2048), 33 (2112), 34 (2176), 

35 (2240), 60 (3840), 61 (3904), 62 (3968) und 64 (4032). 

Bei aktivierter Grafik sind ausserdem die Sprites 253 
(16192), 254 (16256) und 255 (16320) zur Verfuequng. 


7.2 Der F OKE- Befehl 

Format: 

PGKE Ausdruck 1 ,Ausdruck.2; 

In die Speicherzelle die durch Ausdruck! angegeben ist, wird 
das Ergebnis von Ausdruck2 geschrieben. Dies entspricht dem 
qleichnahmiqen BASIC-Befehl. 

7 - 3 . „Der _SYS-Bef eh 1 

Format: 

SYS Ausdruckl; 

Ein Maschinenprogramm, das bei Ausdruck 1 beginnt, wird 
gestartet. Auch dieser Befehl ist mit dem BASIC-Befehl 
identisch. Fuer Maschinensprache ist der Bereich von *C000 
bis $CFFF nutzbar, soweit keine rekursiven Aufruefe 
stattfinden, oder diese nur 


wenig V'ariabienspeicherplatz 


benoetiqen (rekursive Variablen werden ab *A000 au-fwaerts 
qespeichert). 

Bei spiel: 

SYS 64738; 


setzt den Computer in den Einschaltzustand. 


7 ._4_ J)er_INTE GER ; Befehl 

Pascal 64 verfueqt Lieber die Moeclichkeit arithmetische 
Operationen wahlweise im Ganzzahl oder Fliesskommaformat 
auszufuehren. Soweit das Erqebnis nicht davon beeintraechtiqt 
wird, waehlt der Compiler das Ganzzahlformat. Bei den 
Verknuepfungen *, /, + und — ist dies nicht immer gegeben und 
kann vom Compiler nicht entschieden werden- Multipliziert man 
z.B. zwei INTEGER—Var i ab 1 en, kann dLirchaus ein Ergebnis 
erscheinen, dass nicht von einer INTEGER—Variable aufgenommen 
werden kann. Darum qibt es in Pascal 64 den INTEGER; Befehl. 

Format: 

INTEGER; 


Dieser Befehl bewirkt, dass die Operationen *, - und + im 
Ganzzah1 —Format ausqefuehrt werden, wenn beide Operanden vom 
Typ INTEGER sind. 

Fuer die ganzzahlige Division gibt es dagegen die Befehle DIV 
und MOD. 

Unter Umstaenden koennen durch Bereichsueber1aeuf e 
Rechenfehler entstehen, die bei Verwendung von 
Fliesskommarechnung nicht entstanden waeren. Deshalb ist der 
INTEGEF:; Befehl vorsichtig einzusetzen, besonders die 
Multiplikation ueberschreitet schnell den erlaubten Bereich 
von -32768 bis 32767. 


7.5 Abschalten des Ganzzahlmodus 
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Format: 


REAL; 

Dieser Be-fehl schaltet wieder in den Ausgangszustand zurueck. 
Dies ist wichtig um z.B« innerhalb einer Schlei-fe schnell 
rechnen zu koennen, aber ausserhalb dieser Schlei-fe mit 
qrossen Zahlen zu hantieren. 

Beide Befehle wirken nur auf die folgenden Programmtei1e 
(also nicht auf Unterprogramme) und sind unabhaengig vom 
Verlauf des Programmes. 

Beispi el : 

10 BEGIN 

20 IF 1=0 THEN INTEGER; 

30 WRITELN (2*3); 

40 END. 

Die Multiplikation wird im Ganzzahlformat ausgerechnet, 
obwohl der Programmtei1, in dem der INTEGER-Befehl enthalten 
ist, niemals durchlaufen wird. 

Um z.B. das gesamte Programm im Ganzzahlmodus laufen zu 
1assen, ist der INTEGER; Befehl nach den BEGIN des ersten 
Unterprogrammes zu stellen. 


7.6 Fehlermeldüngen des uebersetzten Prog r ammes 

BAD SUPSCRIPT 

Es wurde versucht eine Feldvariable anzusprechen, deren Index 
ausserhalb des deklarierten Bereiches liegt. 

DIVISION BY ZERO 

Eine Gl eitkommavariable wurde durch Null dividiert. 

ILLEGAL QUANTITY 

Ein Wert liegt ausserhalb des fuer einen Befehl erlaubten 
Bereichs, z.B. bei unerlaubten Koordinaten der Befehle PLOT 
und UNPLOT. 



GUT OF MEMORY 


Der Maschinenstack oder der Rekursionstack ist uebergelauten. 
Dies geschieht z.B. bei zu hoch verschachtelter Benutzung von 
selbstde-f inierten Funktionen, aber auch durch zu hohe 
rekursive Unterpragrammverschachtelung. 

OVERFLOW 

Eine Gl eitkommaberechnung hat den erlaubten Bereich 
(1.70141183E+38) ueberschritten. 

Andere Fehlermeldungen entsprechen denen des 
BASIC-Interpreters. Syntax-Fehler werden schon vom Compiler 
gemeldet. 


8. KAPITEL 


Ais Anregung zur Erstellung Ihrer eigenen 

Unterprogrammbibliothek -falqen Unterprogramme zur besseren 
Handhabung der Grafik: 

8.1 Zeichnen e ine r Linie 

Der PROCEDURE DRAW muessen vier Parameter uebergeben werden, 
die ersten beiden Parameter bilden die Koordinaten des 
Anfangspunktes der Linie. Die letzten beiden Parameter geben 
die Endkoordinaten der Linie. 

10 PROCEDURE DRAW (X1,Yi:REAL; X2,Y2:INTEGER); 

20 VAR ZAEHLER,DX,DY:INTEGER; STEP: REAL; 

30 BES IN DXs= X.2-X1; DY:= Y2-Y1; 

40 IF ABS(DX)>ABS(DY) THEN BEGIN 
50 STEP: = DY./ABS <DX ) ; 

60 F0R ZAEHLER:= XI T0 X2 DO 3EGTN 

70 PLOT ZAEHLER,Yl; Yl:= Yl+STEP: END: END; 

80 ELSE BEGTN 
90 STEP:= DX/ABS C DY); 

100 F0R ZAEHLER:= Yl TO Y2 DG BEGIN 

510 PLOT XI,ZAEHLER; Xis* Xl+STEP; END; END; 

.120 END; 

Beim Einfueqen dieses Unterproqrammes in ein Programm muessen 
natuerlich die Zei1ennummern entsprechend qeaendert werden. 


8.2Aktivieren einer vierfarbigen Grafik 


Der PROCEDURE NULTICOLOR werden vier Parameter uebergeben, 
welche die Farben <0 15) der VIerfarbgrafik darstellen. 

lo PROCEDURE MUl TICOLOR (CO,CI,C2,C3:INTEGER); 

20 VAR ZAEHLER,C12:INTEGER: 

30 BEGIN INTEGER; GRAPHIC 1; 






40 POKE 53270,PEEK(53270)0R16; 

50 POKE 53281,CO; 

60 C12:= C1*16+C2; 

70 FOR ZAEHLER:= 1024 TO 2023 DO POKE ZAEHLER,C12; 
80 FOR ZAEHLER:= 55296 TO 56295 DO POKE ZAEHLER,C3; 
90 REAL; END; 


8.3MULTIPL0T 

Die Multiplot-Prozedur benoetigt drei Parameter. Dies sind 
X-Koordi nate (0-159), Y-Koürdinate (0-199) und Farbe (o- 3 ) 
au-f die aktivierten vier Farben bezogen. 

10 PROCEDURE MULTIPLOT (XM,YM,C:INTEGER); 

20 BEGIN INTEGER; 

30 IF CAND1=1 THEN PLOT XM*2+1,YM; 

40 ELSE UNPLOT XM*2+1,YM; 

50 IF CAND2=2 THEN PLOT XM*2,YM; 

60 ELSE UNPLOT XM*2,YM; 

70 REAL; END; 

Diese Routinen brauchen Sie nun nur noch in die 
Unterprogramm-Deklaration eines Pascal- Programmes 

einzufueqen, und koennen drei neue Befehle benutzen. 
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9._ KAPSEL 


_Einfue hrung in das struktnriete P rogrammieren 


Strukturiete Programmierung beruht aut der Idee ein Problem 
in verschiedene Bioecke aufzutei 1 en, die alle nur einen 

Eingang und einen Ausgang haben (BEGIN END), und die 

selbst wieder aus Bioecken zusammengesetzt sind. Bioecke 
koennen nur hintereinander, nebeneinander (bei bedingten 
Verzweigungen) oder in Schleifen stehen, sie duerfen nicht 
ueberlappen und es duerfen keine Spruenge erfolgen. Durch 
Darstellen eines Blocks als viereckigen Kasten lassen sich 
sogenannte Struktogramme erstellen, die eine gute grafische 
Alternative zu den Flussdiagrammen sind. Innerhalb eines 
Blockes wird dann seine Struktur erlaeutert (Schleife oder 
Verzweigung) und seine Teilbloecke in ihn hineingezeichnet. 
Bei bedingten Verzweigungen wird ueber jeden Block die 
Bedingung geschrieben, die zu seiner Ausfuehrung erfuellt 
sein muss. 

Um zu einer solchen Grafik zu kommen, wird das zu 1 oesende 
Problem in einzelne Teilprobleme (Bioecke) zerlegt. Diese 
Teilprobleme werden schrittweise weiter zerlegt bis die 
einzelner Verfeinerungstufen so klar definiert sind, dass sie 
problemlos in Pascal dargestellt werden koennen. Dabei sollte 
die kleinste Einheit maximal eine Bildschirmseite umfassen, 
50 dass mit Hilfe schriftlicher Aufzeichnungen stets der 
Ueberblick behalten wird. 

Ueber jedes Teilproblem (Block) sollten schriftlich 
festgehalten werden: 


Die gegebenen Variablen, Felder, Parameter, Files etc. 

- Wa 5 der Block mit diesen Daten macht. 

- Wie die Ergebnisse an weitere Bioecke uebergeben werden. 
(Variablennamen) 


Ob Daten an den Benutzer oder Ausgabegeraete uebergeben 
werden. 
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Ein kleines praktisches Beispiel waere z.B. -folgendes 
Problem: 

Di e Zahlen von 1 bis 1000 sollen auf Primzahlen durchsucht 
werden und alle Primzahlen ausgedruckt werden. 

Dieses Problem laesst. sich auf spalten in: 

- Die Ueberpruefunq einer Zahl, ob sie eine Primzahl ist. 

- Die Erzeugung der Zahlen von 1 bis 1000 und die Uebergabe 
an den Ueberpruefungsblock. 

Die Zahl 1 braucht dabei nicht ueberprueft werden. Die zu 
ueberpruefende Zahl nimmt die Variable N auf. 

Die Grobstruktur des Programmes sehen dann so aus: 

10 VAR N:INTEGER; BEGIN 
20 F0R N:= 2 T0 1000 DG BEGIN 
30 Lieberprue-fung aut Primzahl 
60 Ausdrucken, wenn Primzahl 
70 END; END. 

Um testzustellen, ob eine Zahl eine Primzahl ist, wird 
versucht diese durch alle Zahlen bis zu ihrer Wurzel • zu 
tei1en. 

Dazu muessen zuerst diese Zahlen generiert werden. Dazu wird 
die Variable ZAEHLER benutzt: 

10 VAR N,ZAEHLER:INTEGER; BEGIN 

20 FÜR N:= 2 T0 1000 DO BEGIN ZAEHLER:= 1; 

30 REPEAT 

40 ZAEHLER:= ZAEHLER+1; 

50 UNTIL ZAEHLER>SQRT(N); 

70 END; END. 

Nun braucht nur noch aut Teilbarkeit untersucht, und die 
Schleite entsprechend abgebrochen werden: 

10 VAR N,ZAEHLER:INTEGER; BEGIN 

20 F0R N:= 2 T0 1000 DO BEGIN ZAEHLER:= 1; 

30 REPEAT 

40 ZAEHLER:= ZAEHLER+1; 

50 UNTIL (ZAEHLER>SQRT(N))0R(NM0DZAEHLER=0); 

60 IF NOT(NM0DZAEHLER=0) THEN WRITELN (N); 

70 END; END. 
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Die Zahl ist eine Primzahl, wenn alle Teilungen einen Rest 
besitzen. Die Restberechnung geschieht durch MOD. 

Dieses Froqramm kann nun noch nach belieben optimiert werden, 
z-B. ist die Ueberprue-Pung von geraden Zahlen unnoetig. Bei 
groesseren Programmen sollte durch passende Mahl der 
Variablennamen und durch Bemerkungen (■* Bemerkung *) die 
Lesbarkeit erhoeht werden. 

Ein ausgefeiltes Programm zur Primzahlberechnung ist in 
Kapitel 5 enthalten, es benutzt allerdings eine andere 
Methode. 
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10. KAPITEL 


10. 1 Pascal 64 Kurzuebersi cht. 


10.1.1 Datentypen 

R EAL ~ Bereich +-1.70141183E+38, 9 Stellen 

Rechengenauigkeit 

INTEGER - Bereich +— 32767, keine Nachkommastel1en 
CHAR - Alle darstel1 baren Zeichen, Laenge 1 Zeichen 

10.1.2 Deklaration 

VAR Var i ab 1 enl i ste: Typ; 

-Variablendeklaration 

VAR Li ste:ARRAY(0. .Zahl) ÜF TYP; 

-Fel derdeklaration 

CONST Name=Wert; 

-Konstantendeklaration 


10.1.3 Unterprogramme: 

PRÜCEDURE Name (Parameter1iste); Variablendeklaration Block; 
Definition eines Unterproqrammes, dass wie ein Befehl 
aufgerufen wird. 

FUNCTION Name (Parameter1iste):Typ Variab1endeklarationen 

Block; 

Definition eines Unterprogrammes, dass wie eine Funktion 
aufgerufen wird. 


10.1.4 Strukturen: 

REPEAT Block; UNTIL Bedingung; 

Wiederholt den Block, bis die Bedingung erfuellt ist. 
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WHILE Bedingung DG Block; 

Wiederholt den Block, solange die Bedingung ertuellt ist. 

FOR Variablem An-fangswert TO Endwert DO Block; 

Zaehlt die Variable von Antangswert bis Endwe^t hach und 
•fuehrt jedesmal den Block aus. 

FGR Variablem An tangswert DOWNTO End wert DO Block; 

Zaehlt die Variable von Antangswert bis Endwert hinunter und 
tuehrt jedesmal den Block aus. 

IF Bedingung THEN Block; 

Wenn die Bedingung ertuellt ist, wird der Block ausgetuehrt. 
IF Bedingung THEN Block 1; ELSE Block2; 

Wenn die Bedingung ertuellt ist, wird Blockl ausgetuehrt, 
anderntalls Block2. 

CASE Ausdruck OF 
Werteliste: Block; 

Werteliste: Block; 

END; 

Wenn ein Wert mit dem Ergebnis des Ausdrucks identisch ist, 
wird der dahinterstehende Block ausgetuehrt. 

10.1.5 Ein- und Ausgabebetehle 
READ (Variab1enliste); 

Die Variablen werden von der Tastatur eingelesen. 

READLN (Variablenliste); 

Die Variablen werden von der Tastatur eingelesen und ein 
'RETURN' wird erwartet. 

WRITE (Ausdruck,"Text; 

Die Ergebnisse der Ausdruecke und die Texte werden aut den 
Bildschirm ausgegeben. 
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WRITELN (Ausdruck,"Text",...); 

Wie WRITE, zusaetzlich wird ein 'RETURN' ausgeqeben. 

VAR Name,Geraet,Sekundaeradresse,"Text" : FILE; 

Ein File wird definiert. 

RESET (Name); oder REWRITE (Name); 

Ein File wird eroeffnet. 

CLGSE (Name); 

Ein File wird geschlossen. 

WRITE (Filename,Liste); oder WRITELN (Fi 1ename,Liste); 
Umlegen einer Ausgabe auf ein File. 

READ (Fi 1ename,Liste); oder READLN (Fi 1ename,Liste); 
Umlegen einer Eingabe auf ein File. 


10.1.6 Sonstige Befehle 
GRAPHIC 1; 

Einschalten einer hochauf1 oesenden Grafik« 

GRAPHIC 0; 

Abschalten einer Grafik. 

SCREENCLEAR; 

Loeschen des Grafikbi1dschirms. 

PLOT Ausdruckl,Ausdruck2; 

Setzen eines grafischen Punktes. 

UNPLOT Ausdruckl,Ausdruck2; 

Loeschen eines grafischen Punktes. 

SPRITE Adresse,"Bitmuster"; 

Schreiben eines Bitmusters in einen Speicherbereich. 
POKE Ausdruckl,Ausdruck2; 

In die Speicherzelle mit der Adresse von Ausdruckl 


wi rd 
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Ausdruck2 qeschrieben. 

SYS Ausdruck; 

Startet ein Maschinenprogramm. 

INTEGER; 

Einschalten des Ganzzahlrechenmodus. 

REAL; 

Zurueckschalten auf den normalen Rechenmodus; 


10.1.7 Zuordnung 
Variab1e:= Ausdruck; 

In die Variable wird das Ergebnis des Ausdrucks geschrieben 


10.1.8 Rechenoperationen 

+ Addition 

— Subtraktion 

* Multiplikation 

/ Division 

DIV Ganzzahldivision 

MOD Berechnung des Restes 

AND logisches und binaeres "und" 

0R logisches und binaeres "oder“ 

= gleich 

<> ungleich 

> groesser 

< kleiner 

<. = Heiner oder gleich 
>= groesser oder gleich 


10.1.9 Funktionen 

SIN Sinus, Winkel in Bogenmass 
COS Cosinus 
TAN Tangens 


41 


ARCTAN Arcustsnqens 


FXP 

Potensierunq mit e 

L.N 

natuer1ieher Looarithmus 

SQR 

Quadrat 

SQRT 

Qu. ad rat. wurrel 

ABS 

Betrag einer Zahl 

TRUNC 

qanzahliaer Anteil 

NOT 

logisches und binaeres "nicht 

PEF.K 

Inhalt einer Speicherstel1e 

ORD 

Zahlencode eines Zeichens 

CHR 

Zeichen fuer einen Code 
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DIE BEDIENUNG VON PASCAL 64 


1. Hinweis 


Beachten Sie, daß die PASCAL 64—Diskette kopiergeschützt ist. 
Das Directory dieser Diskette wird nicht angezeigt! Aus 
diesem Grunde sollten Sie Ihre Benutzerprogramme au-f eine 
andere Diskette (Arbeitsdiskette) ablegen. Zum Erzeugen eines 
ab 1 aut -f äh i gen Programmes ist unbedingt der LOADER der 
PASCAL 64-Diskette erforderlich. Ein mit dem LOADER 
abgespeichertes, endgültiges Objektprogramm kann nicht mit 
GOTO 100 zum Erzeugen abl au-f-f ähiger Programme benutzt werden. 


2. Erstellen von PASCAL-Programmen 

- Laden Sie den PASCAL 64-Compiler mit LOAD "COMPILER",8. 
Dieser Compiler belegt die BASIC-Zeilen ab 10000. 

- Geben Sie Ihr PASCAL-Programm innerhalb der Zeilen 

1-9999 ein 

- Legen Sie Ihre Arbeitsdiskette ein, au-f der das 

übersetzte Programm gespeichert werden soll. 

- Starten Sie den Compiler mit RUN. Geben Sie den 

Programmnamen, den Massenspeicher (D - Diskette oder K - 
Kassette) und die Verschachtelungstiefe an. 

- Sollte auf der Diskette bereits ein File mit diesem 

Programmnamen enthalten sein, so blinkt die Leuchtdiode 
der Floppy. Unterbrechen Sie dann den Compiler mit der 
Taste RUN/STOP und Starten ihn erneut mit RUN. Geben Sie 
nun einen anderen Programmnamen an. 

- Der Compiler gibt die Anzahl der noch freien Bytes und 
das Programmende an. Dieses Programmende muß später beim 
Lauf des LOADER angegeben werden. 

- Das Objektprogramm kann nun gemeinsam mit dem Compiler 
auf Ihre Arbeitsdiskette gespeichert werden. Benutzen 
Sie dazu den Befehl SAVE "name",8. 

- Der vom Compiler erzeugte Zwischencode befindet sich 
nach der Übersetzung auf der Arbeitsdiskette und kann 
mit dem LOADER in ein lauffähiges Programm umgewandelt 
werden. Laden Sie dazu den LOADER von der PASCAL 
64—Systemdiskette mit LOAD "LOADER",8 und Starten ihn 
mit GOTO 100. Danach entnehmen Sie die PASCAL 
64-Diskette wieder aus dem Laufwerk und legen Ihre 
Arbeitsdiskette ein. Geben Sie nun das Programmende und 
den Programmnamen ein. 

- Sollte der LOADER den angegebenen Programmnamen auf der 
Diskette nicht finden, so blinkt die Leuchtdiode der 
Floppy. Unterbrechen Sie in diesem Fall den LOADER mit 
der Taste RUN/STOP, legen die PASCAL 64-Systemdiskette 
wieder ein, Starten den LOADER mit GOTO 100 und wechseln 
die Systemdiskette gegen die Arbeitsdiskette aus. 

- Nun wird die Meldung "READY" ausgegeben und das Programm 
kann mit RUN gestartet werden. 

- Dieses endgültige, ablauffähige Programm kann nun 
zusammmen mit dem LOADER auf einer Diskette gespeichert 
werden. Dieser LOADER kann nicht zur Übersetzung des 
Compiler-Codes benutzt werden. Er dient lediglich zum 
Ablauf des fertigen Programmes. 


Beachten Sie unbedingt, daß Ihre Programme nicht auf der 
PASCAL 64-Diskette gespeichert werden. 





































































































































































































































































































































































































































































































































